home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / infop125.zip / PAGE_17.INC < prev   
Text File  |  1990-08-10  |  973b  |  31 lines
  1. procedure page_17;
  2.   var
  3.     xbyte: byte;
  4.  
  5.   begin
  6.   TextColor(White);
  7.   GotoXY((twidth div 2) - 15, 1);
  8.   Writeln('Thank You for using INFOPLUS!!');
  9.   Writeln;
  10.   TextColor(LightCyan);
  11.   Writeln('  If you have any questions, bug reports, or suggestions, I can be');
  12.   Writeln('reached at the following places:');
  13.   Writeln;
  14.   TextColor(LightRed);
  15.   Writeln('Unix Mail      : andyross@ddsw1.MCS.COM');
  16.   Writeln('Relay Net      : CENCOM01');
  17.   Writeln('Central Command: (708)359-9346 (1200/2400)');
  18.   Writeln('                 (708)359-9396 (HST 14.4)');
  19.   Writeln('ddsw1          : (708)808-7300 (1200/2400, 6 lines)');
  20.   Writeln('                 (708)808-7306 (PEP)');
  21.   Writeln('RCS Defender   : (708)390-6603 (1200/2400)');
  22.   Window(1, tlength - 2, twidth, tlength - 2);
  23.   xbyte:=TextAttr;
  24.   TextColor(White);
  25.   TextBackground(Brown);
  26.   ClrScr;
  27.   Write('INFOPLUS ', qversion, ', by Andrew Rossmann, ' + qdate);
  28.   TextAttr:=xbyte;
  29.   end;
  30.  
  31.